inherited frmAbonentCreate: TfrmAbonentCreate
  Left = 445
  Top = 376
  VertScrollBar.Range = 0
  BorderStyle = bsDialog
  Caption = #1057#1086#1079#1076#1072#1085#1080#1077' '#1072#1073#1086#1085#1077#1085#1090#1072
  ClientHeight = 252
  ClientWidth = 335
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel [0]
    Left = 49
    Top = 8
    Width = 51
    Height = 13
    Alignment = taRightJustify
    Caption = #1053#1072#1089'.'#1087#1091#1085#1082#1090
  end
  object Label2: TLabel [1]
    Left = 68
    Top = 32
    Width = 32
    Height = 13
    Alignment = taRightJustify
    Caption = #1059#1083#1080#1094#1072
  end
  object Label3: TLabel [2]
    Left = 77
    Top = 56
    Width = 23
    Height = 13
    Alignment = taRightJustify
    Caption = #1044#1086#1084
  end
  object Label4: TLabel [3]
    Left = 52
    Top = 80
    Width = 48
    Height = 13
    Alignment = taRightJustify
    Caption = #1050#1074#1072#1088#1090#1080#1088#1072
  end
  object Label5: TLabel [4]
    Left = 63
    Top = 104
    Width = 37
    Height = 13
    Alignment = taRightJustify
    Caption = #1051#1080#1090#1077#1088#1072
  end
  object lClient: TLabel [5]
    Left = 4
    Top = 152
    Width = 96
    Height = 13
    Alignment = taRightJustify
    Caption = #1050#1074#1072#1088#1090#1080#1088#1086#1089#1098#1077#1084#1097#1080#1082
  end
  object Label6: TLabel [6]
    Left = 36
    Top = 200
    Width = 64
    Height = 13
    Alignment = taRightJustify
    Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
  end
  object Label8: TLabel [7]
    Left = 85
    Top = 176
    Width = 15
    Height = 13
    Alignment = taRightJustify
    Caption = #1051#1057
  end
  object Label9: TLabel [8]
    Left = 19
    Top = 128
    Width = 81
    Height = 13
    Alignment = taRightJustify
    Caption = #1058#1080#1087' '#1087#1086#1084#1077#1097#1077#1085#1080#1103
  end
  object lContragent: TLabel [9]
    Left = 42
    Top = 152
    Width = 58
    Height = 13
    Alignment = taRightJustify
    Caption = #1050#1086#1085#1090#1088#1072#1075#1077#1085#1090
    Visible = False
  end
  inherited Panel1: TPanel
    Top = 225
    Width = 335
    TabOrder = 10
    inherited BitBtn1: TBitBtn
      Left = 128
    end
    inherited BitBtn2: TBitBtn
      Left = 230
    end
  end
  inherited ToolBar1: TToolBar
    Width = 335
    Height = 0
    TabOrder = 0
  end
  object TownBox: TDBLookupComboboxEh [12]
    Left = 105
    Top = 6
    Width = 220
    Height = 19
    AlwaysShowBorder = True
    EditButtons = <>
    Flat = True
    KeyField = 'CODE'
    ListField = 'NAME'
    ListFieldIndex = -1
    ListSource = ds_QTowns
    TabOrder = 1
    Visible = True
    OnChange = TownBoxChange
  end
  object StreetBox: TDBLookupComboboxEh [13]
    Left = 105
    Top = 30
    Width = 220
    Height = 19
    AlwaysShowBorder = True
    EditButtons = <>
    Flat = True
    KeyField = 'CODE'
    ListField = 'STREET'
    ListFieldIndex = -1
    ListSource = ds_QStreets
    TabOrder = 2
    Visible = True
    OnChange = StreetBoxChange
  end
  object HouseBox: TDBLookupComboboxEh [14]
    Left = 105
    Top = 54
    Width = 220
    Height = 19
    AlwaysShowBorder = True
    EditButtons = <>
    Flat = True
    KeyField = 'ID'
    ListField = 'NUM'
    ListFieldIndex = -1
    ListSource = ds_QHouses
    TabOrder = 3
    Visible = True
    OnChange = HouseBoxChange
  end
  object dbeLetter: TDBEditEh [15]
    Left = 105
    Top = 102
    Width = 43
    Height = 19
    AlwaysShowBorder = True
    EditButtons = <>
    Enabled = False
    Flat = True
    TabOrder = 5
    Visible = True
  end
  object dbeFio: TDBEditEh [16]
    Left = 105
    Top = 150
    Width = 220
    Height = 19
    AlwaysShowBorder = True
    EditButtons = <
      item
        Hint = #1055#1086#1080#1089#1082' '#1075#1088#1072#1078#1076#1072#1085#1080#1085#1072
        Style = ebsEllipsisEh
        OnClick = dbeFioEditButtons0Click
      end
      item
        Hint = #1054#1095#1080#1089#1090#1080#1090#1100
        Style = ebsMinusEh
        OnClick = dbeFioEditButtons1Click
      end>
    Flat = True
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    Visible = True
  end
  object dbCreateDate: TDBDateTimeEditEh [17]
    Left = 105
    Top = 198
    Width = 91
    Height = 19
    AlwaysShowBorder = True
    EditButtons = <>
    Flat = True
    Kind = dtkDateEh
    TabOrder = 9
    Visible = True
  end
  object dbeNLS: TDBEditEh [18]
    Left = 105
    Top = 174
    Width = 220
    Height = 19
    AlwaysShowBorder = True
    EditButtons = <>
    Enabled = False
    Flat = True
    TabOrder = 8
    Visible = True
  end
  object dbeApparts: TDBNumberEditEh [19]
    Left = 105
    Top = 78
    Width = 43
    Height = 19
    AlwaysShowBorder = True
    EditButtons = <>
    Flat = True
    MaxValue = 32767.000000000000000000
    MinValue = 1.000000000000000000
    TabOrder = 4
    Visible = True
  end
  object lcbRealityType: TDBLookupComboboxEh [20]
    Left = 105
    Top = 126
    Width = 220
    Height = 19
    AlwaysShowBorder = True
    Anchors = [akLeft, akTop, akRight]
    EditButtons = <>
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Flat = True
    KeyField = 'ID'
    ListField = 'NAME'
    ListSource = dsc_RealityTypes
    ParentFont = False
    TabOrder = 6
    Visible = True
    OnChange = lcbRealityTypeChange
  end
  inherited ActionList1: TActionList
    Left = 292
    Top = 104
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    StoredProps.Strings = (
      '<P>.Left'
      '<P>.Top')
  end
  object QHouses: TpFIBDataSet
    SelectSQL.Strings = (
      
        'select cast(-1 as integer) as id, cast('#39' ---- '#39' as varchar(22)) ' +
        'as num, cast('#39#39' as varchar(16)) as house, cast(null as varchar(3' +
        ')) as corps'
      '  from rdb$database'
      'union'
      'select v.id, v.num, v.house, v.corps'
      '  from vw_buildings v'
      '  where v.street_id = :pstreet_id'
      '  order by 3,4')
    Transaction = MAINDM.pMainTransaction
    Database = MAINDM.pMainDatabase
    Left = 240
    Top = 68
    oFetchAll = True
    object QHousesID: TFIBIntegerField
      FieldName = 'ID'
    end
    object QHousesNUM: TFIBStringField
      FieldName = 'NUM'
      Size = 22
      EmptyStrToNull = True
    end
    object QHousesHOUSE: TFIBStringField
      FieldName = 'HOUSE'
      Size = 16
      EmptyStrToNull = True
    end
    object QHousesCORPS: TFIBStringField
      FieldName = 'CORPS'
      Size = 3
      EmptyStrToNull = True
    end
  end
  object ds_QHouses: TDataSource
    DataSet = QHouses
    Left = 276
    Top = 68
  end
  object ds_QStreets: TDataSource
    DataSet = QStreets
    Left = 276
    Top = 36
  end
  object QStreets: TpFIBDataSet
    SelectSQL.Strings = (
      
        'select cast(-1 as integer) as code, cast('#39' ---- '#39' as varchar(120' +
        ')) as street'
      '  from rdb$database'
      'union'
      'select s.code, s.street'
      '  from vw_streets s'
      '  where s.town_id = :ptown_id'
      '  order by 2')
    Transaction = MAINDM.pMainTransaction
    Database = MAINDM.pMainDatabase
    Left = 240
    Top = 36
    oFetchAll = True
    object QStreetsCODE: TFIBIntegerField
      FieldName = 'CODE'
    end
    object QStreetsSTREET: TFIBStringField
      FieldName = 'STREET'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object QTowns: TpFIBDataSet
    SelectSQL.Strings = (
      'select'
      '    code,'
      '    name,'
      '    full_name'
      'from vw_towns '
      'where local = 1'
      'order by name')
    Transaction = MAINDM.pMainTransaction
    Database = MAINDM.pMainDatabase
    Left = 240
    Top = 4
    oFetchAll = True
    object QTownsNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object QTownsCODE: TFIBIntegerField
      FieldName = 'CODE'
    end
    object QTownsFULL_NAME: TFIBStringField
      FieldName = 'FULL_NAME'
      Size = 123
      EmptyStrToNull = True
    end
  end
  object ds_QTowns: TDataSource
    DataSet = QTowns
    Left = 276
    Top = 4
  end
  object LocalTrans: TpFIBTransaction
    DefaultDatabase = MAINDM.pMainDatabase
    TimeoutAction = TARollback
    Left = 198
    Top = 84
  end
  object dsAbonentCreate: TpFIBDataSet
    SelectSQL.Strings = (
      
        'select rabon_id  FROM PROC_ABON_INSERT (:pstreet_id,:pbuild_id,:' +
        'pfio,:papparts,:pletter,:pnls, :pcreatedate, :pclient_id, :preal' +
        'tytype)')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Left = 164
    Top = 84
    object dsAbonentCreateRABON_ID: TFIBIntegerField
      FieldName = 'RABON_ID'
    end
  end
  object ds_Client: TpFIBDataSet
    SelectSQL.Strings = (
      'SELECT'
      '    ID,'
      '    NAME'
      'FROM'
      '    CLIENTS '
      'where id = :pclient_id')
    Transaction = LocalTrans
    Database = MAINDM.pMainDatabase
    Left = 240
    Top = 96
    oFetchAll = True
    object ds_ClientID: TFIBIntegerField
      FieldName = 'ID'
    end
    object ds_ClientNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 120
      EmptyStrToNull = True
    end
  end
  object ds_RealityTypes: TpFIBDataSet
    SelectSQL.Strings = (
      'select id, name'
      '  from rrealtytypes s'
      '  order by s.name')
    Database = MAINDM.pMainDatabase
    Left = 239
    Top = 128
    poSQLINT64ToBCD = True
    oFetchAll = True
    object ds_RealityTypesNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
    object ds_RealityTypesID: TFIBIntegerField
      FieldName = 'ID'
    end
  end
  object dsc_RealityTypes: TDataSource
    DataSet = ds_RealityTypes
    Left = 283
    Top = 128
  end
end
